home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb1 / pro22 / tooldemo.bas < prev    next >
Encoding:
BASIC Source File  |  1992-09-29  |  1.4 KB  |  49 lines
  1.  
  2.     ' Minimum size
  3.     Global MINWIDTH!, MINHEIGHT!
  4.  
  5.     ' File name for open, save
  6.     Global FileName$
  7.  
  8.     ' Pathname of help file
  9.     Global HelpPath$
  10.  
  11.     ' Constants
  12.  
  13.     ' Booleans
  14.     Global Const FALSE = 0
  15.     Global Const TRUE = -1
  16.  
  17.     ' Space around ToolButtons
  18.     Global Const BUTTONGAP = 4
  19.  
  20.     ' ToolButtons
  21.     Global Const TB_FILENEW = 0
  22.     Global Const TB_FILEOPEN = 1
  23.     Global Const TB_FILESAVE = 2
  24.     Global Const TB_FILEPRINT = 3
  25.     Global Const TB_EDITCUT = 4
  26.     Global Const TB_EDITCOPY = 5
  27.     Global Const TB_EDITPASTE = 6
  28.     Global Const TB_FONTBOLD = 7
  29.     Global Const TB_FONTITALIC = 8
  30.     Global Const TB_FONTUNDERLINE = 9
  31.     Global Const TB_HELPCONTEXT = 10
  32.     Global Const TB_HELPCONTENTS = 11
  33.  
  34.     Global Const TB_MAX = 11
  35.  
  36.     ' Windows Help stuff
  37.     Declare Sub WinHelp Lib "user" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal dwData&)
  38.     Declare Sub WinHelpString Lib "user" Alias "WinHelp" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal lpstrData$)
  39.     Global Const HELP_QUIT = &H2
  40.     Global Const HELP_CONTENTS = &H3
  41.     Global Const HELP_HELPONHELP = &H4
  42.     Global Const HELP_KEY = &H101
  43.     Global Const HELP_PARTIALKEY = &H105
  44.  
  45.     ' Other useful API functions
  46.     Declare Function GetModuleFileName% Lib "kernel" (ByVal hModule%, ByVal lpFilename$, ByVal nSize%)
  47.     Declare Function GetModuleHandle% Lib "kernel" (ByVal lpModuleName$)
  48.  
  49.